options results /* indispensable pour récupérer le résultat des macros */
signal on error /* pour l'interception des erreurs */
signal on syntax
'L__="Caractère à écrire"+CHR(10)+"Amplificateur"+CHR(10)+"Collecteur ouvert"+CHR(10)+"Supérieur ou égal"+CHR(10)+"Flèche vers la droite"+CHR(10)+"Postponed"+CHR(10)+"Front montant"+CHR(10)+"Hystérésis"+CHR(10)+"Trois états"+CHR(10)+"Générateur"'
'L__=L__+CHR(10)+"Flèche vers la gauche"+CHR(10)+"Signal analogique"+CHR(10)+"Signe ohm"+CHR(10)+"Lettre alpha"+CHR(10)+"Lettre tau"+CHR(10)+"Lettre teta"+CHR(10)+"Pull up"+CHR(10)+"Lettre Sigma"'
'SELECT(L__)'
c=result
if c <=0 then exit
'WRITE(CHR('c+127'),0,0)'
exit
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'